home *** CD-ROM | disk | FTP | other *** search
/ NetNews Offline 2 / NetNews Offline Volume 2.iso / news / comp / lang / rexx / 452 < prev    next >
Encoding:
Internet Message Format  |  1996-08-06  |  2.1 KB
  1. Path: news.primenet.com!not-for-mail
  2. From: gfraley@primenet.com
  3. Newsgroups: comp.lang.rexx
  4. Subject: Re: SysCreateObject Drive Object
  5. Date: 22 Jan 1996 21:05:01 -0700
  6. Organization: Primenet Services for the Internet
  7. Sender: root@primenet.com
  8. Message-ID: <4e1mpd$d5h@nnrp1.news.primenet.com>
  9. References: <4dvpqj$1kk@lyra.csx.cam.ac.uk>
  10. Reply-To: gfraley@primenet.com
  11. X-Posted-By: ip173.mci.primenet.com
  12. X-Newsreader: IBM NewsReader/2 v1.2.5
  13.  
  14. In <4dvpqj$1kk@lyra.csx.cam.ac.uk>, rdhw@cus.cam.ac.uk (Robin D.H. Walker) writes:
  15. >When I last looked, the online rexxtut document could not answer
  16. >the following questions.
  17. >Can anyone point me to information which supplies the correct
  18. >incantation to SysCreateObject to do either or both of the following:
  19. >
  20. >1) To create a Drive Object (*not* a folder object) for a certain
  21. >   drive letter;
  22.  
  23. /* Create "Disk" Object */
  24. /* DRIVENUM=n  n specifies the logical drive number between 1 & 26 */
  25. /* corresponding to drive letters A-Z */
  26. If RxFuncQuery("SysLoadFuncs") Then Do
  27.   Call RxFuncAdd "SysLoadFuncs","REXXUTIL","SysLoadFuncs"
  28.   Call SysLoadFuncs
  29. End
  30.  
  31. RC = SysCreateObject("WPDisk",,
  32.                      "Drive A",,
  33.                      "<WP_DESKTOP>",,
  34.                      "NODELETE=NO;DRIVENUM=1",,
  35.                      "Update")
  36. If RC Then
  37.   Say '"Drive" created successfully'
  38. Else
  39.   Say '"Drive" could not be created'
  40.  
  41. >2) To create a shadow of an existing drive object in the Drives
  42. >   folder GIVEN THAT THE OS/2 DRIVE OBJECTS HAVE NO WPS NAME
  43. >   from which to create a shadow reference.
  44. >
  45.  
  46. Hmmmm.  I'm working on it!! 
  47.  
  48.  
  49. >Thanks in advance.
  50. >-- 
  51. >Robin Walker         (Network Admin), Queens' College, Cambridge, CB3 9ET, GB
  52. >rdhw@cam.ac.uk   IBMmail:i1006437   Tel:+44 1223 335528   Fax:+44 1223 335566
  53.  
  54.  
  55. Gaylen Fraley                         \\||//
  56. Team OS/2                             ( .. )
  57. -----------------------------------oOO--()--OOo--------------------------------
  58. John 3:16  "For God so loved the world, that He gave His only begotten Son,
  59. that whosoever believeth in Him, should not perish, but have everlasting life."
  60. -------------------------------------------------------------------------------
  61.  
  62.